home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / CursorDevices.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  8.9 KB  |  289 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        CursorDevices.a
  3. ;
  4. ;    Contains:    Cursor Devices (mouse/trackball/etc) Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1993-1997 by Apple Computer, Inc., all rights reserved.
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__CURSORDEVICES__') = 'UNDEFINED' THEN
  19. __CURSORDEVICES__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  25.     include 'MixedMode.a'
  26.     ENDIF
  27.  
  28. ; 
  29. ;                        * * *  I M P O R T A N T  * * * 
  30. ;
  31. ;            You will need CursorDevicesGlue.o to use CDM from PowerPC
  32. ;
  33. ;
  34. ;    In order to use the Cursor Devices Manager (CDM) on PowerPC systems, you must 
  35. ;    link with the file CursorDevicesGlue.o and InterfaceLib 1.1.3.  This is necessary
  36. ;    because the original MixedMode transition code for CDM in InterfaceLib in ROM
  37. ;    was wrong.  The code in CursorDevicesGlue.o will check to see if the ROM has
  38. ;    been fixed and calls through to it if so.  If it detects that the ROM has not
  39. ;    been fixed, it uses its own implementation of the CDM MixedMode transition 
  40. ;    routines. 
  41. ;    
  42. ;
  43.  
  44.  
  45. ; typedef short                         ButtonOpcode
  46.  
  47. ;  ButtonOpcodes 
  48.  
  49. kButtonNoOp                        EQU        0                    ; No action for this button 
  50. kButtonSingleClick                EQU        1                    ; Normal mouse button 
  51. kButtonDoubleClick                EQU        2                    ; Click-release-click when pressed 
  52. kButtonClickLock                EQU        3                    ; Click on press, release on next press 
  53.  
  54. kButtonCustom                    EQU        6                    ; Custom behavior, data = CursorDeviceCustomButtonUPP 
  55. ;  Device Classes 
  56.  
  57. kDeviceClassAbsolute            EQU        0                    ; a flat-response device 
  58. kDeviceClassMouse                EQU        1                    ; mechanical or optical mouse 
  59. kDeviceClassTrackball            EQU        2                    ; trackball 
  60. kDeviceClassTrackPad            EQU        3
  61.  
  62. kDeviceClass3D                    EQU        6                    ; a 3D pointing device 
  63. ;  Structures used in Cursor Device Manager calls 
  64. CursorData                RECORD 0
  65. nextCursorData             ds.l    1                ; offset: $0 (0)        ;  next in global list 
  66. displayInfo                 ds.l    1                ; offset: $4 (4)        ;  unused (reserved for future) 
  67. whereX                     ds.l    1                ; offset: $8 (8)        ;  horizontal position 
  68. whereY                     ds.l    1                ; offset: $C (12)        ;  vertical position 
  69. where                     ds        Point            ; offset: $10 (16)        ;  the pixel position 
  70. isAbs                     ds.b    1                ; offset: $14 (20)        ;  has been stuffed with absolute coords 
  71. buttonCount                 ds.b    1                ; offset: $15 (21)        ;  number of buttons currently pressed 
  72. screenRes                 ds.l    1                ; offset: $16 (22)        ;  pixels per inch on the current display 
  73. privateFields             ds.w    22                ; offset: $1A (26)        ;  fields use internally by CDM 
  74. sizeof                     EQU *                    ; size:   $46 (70)
  75.                         ENDR
  76. ; typedef struct CursorData *            CursorDataPtr
  77.  
  78. CursorDevice            RECORD 0
  79. nextCursorDevice         ds.l    1                ; offset: $0 (0)        ;  pointer to next record in linked list 
  80. whichCursor                 ds.l    1                ; offset: $4 (4)        ;  pointer to data for target cursor 
  81. refCon                     ds.l    1                ; offset: $8 (8)        ;  application-defined 
  82. unused                     ds.l    1                ; offset: $C (12)        ;  reserved for future 
  83. devID                     ds.l    1                ; offset: $10 (16)        ;  device identifier (from ADB reg 1) 
  84. resolution                 ds.l    1                ; offset: $14 (20)        ;  units/inch (orig. from ADB reg 1) 
  85. devClass                 ds.b    1                ; offset: $18 (24)        ;  device class (from ADB reg 1) 
  86. cntButtons                 ds.b    1                ; offset: $19 (25)        ;  number of buttons (from ADB reg 1) 
  87. filler1                     ds.b    1                ; offset: $1A (26)        ;  reserved for future 
  88. buttons                     ds.b    1                ; offset: $1B (27)        ;  state of all buttons 
  89. buttonOp                 ds.b    8                ; offset: $1C (28)        ;  action performed per button 
  90. buttonTicks                 ds.l    8                ; offset: $24 (36)        ;  ticks when button last went up (for debounce) 
  91. buttonData                 ds.l    8                ; offset: $44 (68)        ;  data for the button operation 
  92. doubleClickTime             ds.l    1                ; offset: $64 (100)        ;  device-specific double click speed 
  93. acceleration             ds.l    1                ; offset: $68 (104)        ;  current acceleration 
  94. privateFields             ds.w    15                ; offset: $6C (108)        ;  fields used internally to CDM 
  95. sizeof                     EQU *                    ; size:   $8A (138)
  96.                         ENDR
  97. ; typedef struct CursorDevice *            CursorDevicePtr
  98.  
  99. ;  for use with CursorDeviceButtonOp when opcode = kButtonCustom 
  100. ;
  101. ; pascal OSErr CursorDeviceMove(CursorDevicePtr ourDevice, long deltaX, long deltaY)
  102. ;
  103.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  104.         Macro
  105.         _CursorDeviceMove
  106.             moveq               #0,D0
  107.             dc.w                $AADB
  108.         EndM
  109.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  110.         IMPORT_CFM_FUNCTION CursorDeviceMove
  111.     ENDIF
  112.  
  113. ;
  114. ; pascal OSErr CursorDeviceMoveTo(CursorDevicePtr ourDevice, long absX, long absY)
  115. ;
  116.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  117.         Macro
  118.         _CursorDeviceMoveTo
  119.             moveq               #1,D0
  120.             dc.w                $AADB
  121.         EndM
  122.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  123.         IMPORT_CFM_FUNCTION CursorDeviceMoveTo
  124.     ENDIF
  125.  
  126. ;
  127. ; pascal OSErr CursorDeviceFlush(CursorDevicePtr ourDevice)
  128. ;
  129.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  130.         Macro
  131.         _CursorDeviceFlush
  132.             moveq               #2,D0
  133.             dc.w                $AADB
  134.         EndM
  135.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  136.         IMPORT_CFM_FUNCTION CursorDeviceFlush
  137.     ENDIF
  138.  
  139. ;
  140. ; pascal OSErr CursorDeviceButtons(CursorDevicePtr ourDevice, short buttons)
  141. ;
  142.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  143.         Macro
  144.         _CursorDeviceButtons
  145.             moveq               #3,D0
  146.             dc.w                $AADB
  147.         EndM
  148.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  149.         IMPORT_CFM_FUNCTION CursorDeviceButtons
  150.     ENDIF
  151.  
  152. ;
  153. ; pascal OSErr CursorDeviceButtonDown(CursorDevicePtr ourDevice)
  154. ;
  155.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  156.         Macro
  157.         _CursorDeviceButtonDown
  158.             moveq               #4,D0
  159.             dc.w                $AADB
  160.         EndM
  161.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  162.         IMPORT_CFM_FUNCTION CursorDeviceButtonDown
  163.     ENDIF
  164.  
  165. ;
  166. ; pascal OSErr CursorDeviceButtonUp(CursorDevicePtr ourDevice)
  167. ;
  168.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  169.         Macro
  170.         _CursorDeviceButtonUp
  171.             moveq               #5,D0
  172.             dc.w                $AADB
  173.         EndM
  174.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  175.         IMPORT_CFM_FUNCTION CursorDeviceButtonUp
  176.     ENDIF
  177.  
  178. ;
  179. ; pascal OSErr CursorDeviceButtonOp(CursorDevicePtr ourDevice, short buttonNumber, ButtonOpcode opcode, long data)
  180. ;
  181.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  182.         Macro
  183.         _CursorDeviceButtonOp
  184.             moveq               #6,D0
  185.             dc.w                $AADB
  186.         EndM
  187.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  188.         IMPORT_CFM_FUNCTION CursorDeviceButtonOp
  189.     ENDIF
  190.  
  191. ;
  192. ; pascal OSErr CursorDeviceSetButtons(CursorDevicePtr ourDevice, short numberOfButtons)
  193. ;
  194.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  195.         Macro
  196.         _CursorDeviceSetButtons
  197.             moveq               #7,D0
  198.             dc.w                $AADB
  199.         EndM
  200.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  201.         IMPORT_CFM_FUNCTION CursorDeviceSetButtons
  202.     ENDIF
  203.  
  204. ;
  205. ; pascal OSErr CursorDeviceSetAcceleration(CursorDevicePtr ourDevice, Fixed acceleration)
  206. ;
  207.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  208.         Macro
  209.         _CursorDeviceSetAcceleration
  210.             moveq               #8,D0
  211.             dc.w                $AADB
  212.         EndM
  213.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  214.         IMPORT_CFM_FUNCTION CursorDeviceSetAcceleration
  215.     ENDIF
  216.  
  217. ;
  218. ; pascal OSErr CursorDeviceDoubleTime(CursorDevicePtr ourDevice, long durationTicks)
  219. ;
  220.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  221.         Macro
  222.         _CursorDeviceDoubleTime
  223.             moveq               #9,D0
  224.             dc.w                $AADB
  225.         EndM
  226.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  227.         IMPORT_CFM_FUNCTION CursorDeviceDoubleTime
  228.     ENDIF
  229.  
  230. ;
  231. ; pascal OSErr CursorDeviceUnitsPerInch(CursorDevicePtr ourDevice, Fixed resolution)
  232. ;
  233.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  234.         Macro
  235.         _CursorDeviceUnitsPerInch
  236.             moveq               #10,D0
  237.             dc.w                $AADB
  238.         EndM
  239.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  240.         IMPORT_CFM_FUNCTION CursorDeviceUnitsPerInch
  241.     ENDIF
  242.  
  243. ;
  244. ; pascal OSErr CursorDeviceNextDevice(CursorDevicePtr *ourDevice)
  245. ;
  246.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  247.         Macro
  248.         _CursorDeviceNextDevice
  249.             moveq               #11,D0
  250.             dc.w                $AADB
  251.         EndM
  252.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  253.         IMPORT_CFM_FUNCTION CursorDeviceNextDevice
  254.     ENDIF
  255.  
  256. ;
  257. ; pascal OSErr CursorDeviceNewDevice(CursorDevicePtr *ourDevice)
  258. ;
  259.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  260.         Macro
  261.         _CursorDeviceNewDevice
  262.             moveq               #12,D0
  263.             dc.w                $AADB
  264.         EndM
  265.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  266.         IMPORT_CFM_FUNCTION CursorDeviceNewDevice
  267.     ENDIF
  268.  
  269. ;
  270. ; pascal OSErr CursorDeviceDisposeDevice(CursorDevicePtr ourDevice)
  271. ;
  272.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  273.         Macro
  274.         _CursorDeviceDisposeDevice
  275.             moveq               #13,D0
  276.             dc.w                $AADB
  277.         EndM
  278.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  279.         IMPORT_CFM_FUNCTION CursorDeviceDisposeDevice
  280.     ENDIF
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287.     ENDIF ; __CURSORDEVICES__ 
  288.  
  289.